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Per ricevere gli arretrati di óyyfi compi are i seguente tagliando: 

K . . 

J x . Compilare ed inviare in busta chiusa a: 

.SOTt viale Reste®, 5 - «0184 Milano - TeL 08 / 6888988 - 683797 - 6880041 - 8-3 

Nome_ 

Cognome- 

Indirizzo _ 

CAP _ Otti_ Prov - 


Desidero ricevere i seguenti numeri arretrati di 



a L. 2.000 cad. per un totale di L 


Anno_ 

Anno_ 

. a mezzo 


□ assegno allegato □ contanti allegati 

K . 


Guida per l’input dei programmi versioni 
VIC 90 e C64 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe { }. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico ’so¬ 
litario " questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL. 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


(CLRJ 
{HOME) 

{sui " 
{GIU*) 
{SIN) 

{OF.S ) 

{RVS ) 
{OFF) 

{BLK ) 

{WHT) 
(RED) 



> »t ■” casa 


S" ‘t I: casa 


Ica. 

n 

■■■■■ 

Ica 



C a 

I 

hdhhì 

[ ersi 


Pi 


E 

J 



{CYN ) 
(PUR) 
{CRN} 
(BLU) 
{YEL) 
(< 1 >) 
(< 2 >) 
{< 3> ) 
(<4>) 
l<5> J 
l<6>) 



BB 

BB 

BB 

BB 

BB 

BB 



{<7>| 

La! _ 

I<8>) 

□ 

(FI) 

<r 

{F2 ) 

sa 

{F3 ) 


{F4 ) 

Ll^ 

| {F5 ) 

► 

m 

{F6 ) 

o 

{F7 ) 

B 

■1 

{ F8 ) 


BB □ 
BB !! 


OB 

OD 







































« La pulce joystick 

di l. Fawlcr trad e adatt di m Artticoii 



Meta cquMbrata (9a parte) stampante opzionale 
di G Vaienti™ 


8 Traffico speziale 3K RAM 

di B Herman trad e adatt di S Albarelli 


H . Generatore di quiz 

di G Trepai trad e adatt di M Anticoli 


M Af l ew>ldi 

di T FHier trad e adatt di A Moretti 


CI6z-plus/4 


«d «d U tosti» esiliane joystick 
I I di M Schartand trad e adatt di F Sarei na 

«d Tomeo 2 joystick 
I <9 di K Woram trad e adatt di F Sarcina 
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Stop Bug 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola ".rem" seguita da un nume¬ 
ro, detto checksum; non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell’angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
CI 6 e Plus/4). Per riattivarlo batti: 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il CI6 e il PLUS/4; 
SYS 40704 per il C 64. 
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STOP NO per C44 c VIC tO 

100 POKE55 , 0 : POKF.56 , PEBK (56) - 1 :R-PEEK(56) *256: PRINT" {CLR} 
ATTENDERE PREGO..." 

110 FORI*RTOR+l32:READA:CK«CK+A:IFA-999THENA=R/256 
120 POKEI(A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA W ! END 

140 SYS(R)SPRINT"{CLR}{ 2 GIU*}{RVS}STOP BUG{OFF} ATTIVAT 

Q m H • 

200 DATAI 73,36,3,201 ,32,208,1 ,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
230 DATAI 69,0,133,254,96,32,87,241,133 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,210,255,165,214,141,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,210,2 55,166,254,169,0 
310 DATAI 33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,214,76,55,999 


STOP BUS per €14 e PLUS/4 

100 POKE55,0:l*OKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI-16128TOl6260:READA:CK«CK+A:POKEI,A:NEXT 
120 IPCKOl 4248TMENPRINT" {GIU' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO . " : NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141 ,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,13 1,6,96,32,232,235,133 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,13,32,210,255,J65,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,255,169,1 8,32,210,255 
300 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,172,33,63,192,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,205,76,55,63 



La pulce 




joystick 

0 


Protasonista di questo gioco è una 
simpatica pulce affamata e rinchiu¬ 
sa in una stanza, in cui si trovano 
dei gustosi dolci dalla forma strana 
ma anche delle pericolose frecce 
avvelenate. Per ogni dolce mangia¬ 
to si guadagnano 10 punti, ma non 
bisogna venire a contatto più di 
cinque volte con le frecce, altri¬ 
menti il gioco termina. Controllate 


la pulce mediante il joystick, ricor¬ 
dando che una volta che l’avrete 
messa in movimento non potrete 
più fermarla, ma solo farle cambia¬ 
re direzione. 

Se ancora non avete trovato un 
gioco che sia all’altezza delle vo¬ 
stre capacità, cari possessori di VIC 
20, cosa aspettate a digitare que¬ 
sto programma? 


990 REM LA PULCE 

:rem 

140 

1000 

PRINT"{CLR}":POKE36879,8 

: rem 

3 

1020 

POKE52, 28 :POKE56,28 :CLR:FORI*7168T07679:POKEI,PEEK(I 


+25600):NEXT 

: rem 

175 

1030 

POKE36869,255 

:rem 

203 

1040 

A-0:FORJ = 82 8TO912 :READX:POKEJ,X :A* A+X:NEXT 

:READX 




srem 

132 

1045 

IFAOXTHENPRINT" {YEL}ERRORE NEI DATA" : END 

srem 

224 

1050 

F0RC*7432T07527: READA:POKEC,A:NEXT 

srem 

158 

1060 

PRINT" {GRNHGIU'}{DES}) ) ) ) ) {YEL) LA PULCE 

{GRN}))))) 


t« 

srem 

64 

1130 

REM 

srem 

169 

1140 

PRINT"{GIU'} UN TASTO PER GIOCARE"; 

srem 

242 

1150 

POKE646,INT(RND( 1 )*8) 

srem 

198 

1160 

GETA$:IFA$=""THENPRINT"{ 2 SU}":GOTOl140 

srem 

23 

1170 

SYS828:PRINT"{CLR}" 

srem 

8 

1180 

REM 

srem 

174 

1190 

A*PEEK(36866)ANDl28 :SC*4*A+64*(PEEK(36869)AND!12) 

:C* 


30720 

s rem 

153 

1200 

Sl*36876:S2=Sl+l:V*S2+1:M*SC+252:Y=0 

srem 

58 

1210 

SE=0 

srem 

201 

1220 

REM 

srem 

169 

1230 

FORT*1TO50:GA=SC+INT(RND(1)*438+67):IFPEEK(GA)<>32TH 


ENT*T-1 

srem 

82 

1240 

POKEGA+C r 3 :POKEGA,42 :NEXT 

srem 

71 

1250 

FORT*1TO40:BY*SC+INT(RND(1)*438+67):IFPEEK(BY)<>32TH 


ENT=T-1 

srem 

121 

1260 

POKEBY+C,1 :POKEBY,43:NEXT 

srem 

no 

1270 

FORB=SC+44TOSC+65:POKEB+C,5:POKEB+C+440,5: 

POKEB,40 :P 


OKEB + 440,40 :NEXT 

s rem 

145 
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1280 FORB-SC+66TOSC+462STEP22:POKEB+C, 5 :POKEB+C+21,5:POKE 



B, 40 :POKEB+21,40:NEXT 

:rem 

253 

1290 

POKEM,32:POKEV,10 

:rera 

37 

1300 

PRINT"{HOME}{YEL}!#$%"TAB(11)'l#$%" 

:rem 

123 

1310 

GOSUBl480 

: rem 

18 

1320 

REM 

:rem 

170 

1330 

POKES1-2,FR 

:rem 

157 

1340 

POKESl,0:CO-7:CH-41:FR»140 

:rem 

34 

1350 

IFPEEK(841)* 0THENY * 1 

: rem 

206 

1360 

IFPEEK(842)-OTHENY-2 

:rem 

209 

1370 

IFPEEK(843)-OTHENY-3 

: rem 

212 

1380 

IFPEEK(844)-OTHENY-4 

:rem 

215 

1390 

ONYGOSUB1530,1550,1 570,1 590 

: rem 

247 

1400 

IFPEEK(M)-42THENSE-SE+10:GOSUBl480:POKESl, 

240 

: rem 

24 

1410 

IFPEEK(M)-43THENPOKEOP+C,1 :POKEOP,43:GOSUBl460:CR=CR 


+ 1 :IFCR-5THEN1610 

:rem 

104 

1420 

IFRND(1)>.5THENCO-5:CH-44:FR=1 60 

: rem 

160 

1430 

OP-M:POKEM+C,CO:POKEM,CH 

: rem 

64 

1440 

GOTO1320 

2 rem 

200 

1450 

REM 

2 rem 

174 

1460 

FORF-1TO50STEP5:POKEV,10 :POKESl,150+F:NEXT 

1 2 rem 

196 

1470 

RETURN 

2 rem 

172 

1480 

REM 

2 rem 

177 

1490 

IFSE>HITHENHI«SE 

2 rem 

89 

1500 

PRINT"{HOME}{WHT} { 4 DES }"; SE:PRINT"{HOME} 

"SPC(1 7) ;H 


I 

2 rem 

127 

1510 

RETURN 

2 rem 

167 

1520 

REM 

s rem 

172 

1530 

M-M-22:POKEM+22,32 :IFPEEK(M)-40THENM-M+22: 

Y=*2 

2 rem 

203 

1540 

RETURN 

:rem 

170 

1550 

M-M+22:POKEM-22,32:IFPEEK(M)-40THENM-M-22: 

Y= 1 

2 rem 

206 

1560 

RETURN 

2 rem 

172 

1570 

M=M-1 : POKEM+1,32: IFPEEK (M) =*40THENM=M+1 : Y = 4 

; rem 

56 

1580 

RETURN 

2 rem 

174 

1590 

M-M+l : POKEM-1,32:IFPEEK(M)=40THENM=M-1:Y=3 

2 rem 

59 

1600 

RETURN 

2 rem 

167 

1610 

REM 

2 rem 

172 

1620 

POKESl,0 :POKES2, 0 

2 rem 

34 

1630 

POKEV,15:FORT=lTO50:POKES2,240:POKEV+1,32: 

FORK-1T05: 


POKEV+1,40:POKEV+1,8:NEXTK,T 

2 rem 

72 

1640 

PRINT"{YEL}{CLR}{GIU' }{ 6 DES } FINE GIOCO" 

2 rem 

31 

1660 

PRINT"{GIU' }{ 4 DES}{CYN}***{WHT}+{CYN}* *** {WHT }+ 


{CYN}***{WHT}+{CYN}*{PUR}" 

2 rem 

153 

1670 

POKEV,0:POKES2,0 

2 rem 

249 

1680 

FORT-1TO2000 : NEXT 

2 rem 

86 

1690 

PRINT"{GIU' }{ 4 DES } PREMI UN TASTO"; 

2 rem 

12 


1700 GETA$:POKEV+1, 0 :POKE646 f INT(RND(1)*8) :IFA$=""THENPRI 
NT"{ 2 SU}":POKEV+1,2:GOTOl690 :rem 74 
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1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 
1 830 

1840 

1850 

1860 

1870 


CR*0:SE= 0 :PRINT"{CLR} ":POKEV+1,8:GOTOl200 :rem 93 
REM :rem 174 

DATA120,169,78,141,20,3,169,3,141,21,3,88 :rem 5 
DATA96,0,0,0,0,0,169,0,141,19,145,169,127,141 

:rem 187 

DATA34,145,173,17,145,41,4,141,73,3,173 :rem 164 
DATAI 7,145,41 ,8,141 ,74,3,173,17,145,41,16,1 41 

:rem 202 

DATA75,3,173,32,145,41,128,141,76,3,173 :rem 171 

DATAI 7,145,41 ,32,141 ,77,3,169,255,141 ,34,1 45 

:rem 164 

DATAI 69,128,141 ,19,145,76,191,234,0,0,0,0,71 67 

:rem 6 

REM :rem 173 

DATA251,130,130,250,10,10,251,0,0,0,0,0,0,0,0,0,239, 
8,8,8,8,8,239,0 :rem 189 

DATA190,162,162,190,164,162,162,0 :rem 124 

DATA248,128,130,224,130,128,248,0,138,136,138,250,13 
8,138,138,0,0,0,0,124,0,0,0,0 :rem 144 

DATA255,255,255,255,255,255,255,255 :rem 251 

DATA68,40,124,84,124,40,68,0 :rem 138 

DATAI 6,56,84,214,84,84,84,124,4,8,16,56,8,16,32,64 

:rem 217 

DATAI 30,68,124,84,124,68,130,0 :rem 236 


Traffico spaziale 




3K RAM 


Lo scopo principale del gioco “Traf¬ 
fico spaziale ' che gira su VIC 20 
con 3K di espansione, è di recupera¬ 
re tutti i satelliti artificiali che sono 
andati in avaria e che vagabondano 
nello spazio in attesa di essere rac¬ 
colti e rimessi in funzione. 
Sfortunatamente la zona nella qua¬ 
le si trovano i satelliti in avaria è 
affollata da milioni di meteoriti di 
varie dimensioni, che possono es¬ 
sere letali per la vostra astronave 
da salvataggio. 

Mentre viaggiate nell’immensità 


degli spazi scorgete qualcosa: è un 
alieno che si dirige verso di voi con 
aria aggressiva: probabilmente so¬ 
no stati gli alieni a mettere fuori uso 
i satelliti artificiali. 

Contro di loro non potete nulla; 
dovete solo tentare di evitare la 
collisione tra essi e la vostra astro¬ 
nave. 

Se vi trovate intrappolati da un 
gruppo di meteoriti che vi sbarra¬ 
no la strada potete ricorrere al po¬ 
tente convertitore di materia di cui 
è dotata la vostra nave spaziale. 
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Esso permette di trasformare qual¬ 
siasi materiale in energia per di¬ 
struggere gli oggetti immediata¬ 
mente davanti alla vostra navetta. 
Purtroppo l'unico materiale che 
potete trasfomare sono i satelliti 
raccolti: per trasformarli in energia 
uno alla volta premete M. 

Questa energia verrà poi incanala¬ 
ta nei cannoni fotonici della vostra 
navetta, che vi permetteranno di 
distruggere i meteoriti che vi sbar¬ 
rano la strada. 


Per muovervi usate Z (per andare 
a sinistra) e X (per andare a de¬ 
stra). 

Il punteggio corrisponde al nume¬ 
ro di satelliti presenti sull’astrona¬ 
ve. 

Naturalmente ad ogni sparo il nu¬ 
mero di satelliti diminuisce di uno, 
e se non disponete di satelliti a 
bordo non vi è possibile sparare. 
Ora impugnate la leva di comando 
della vostra astronave, e buona 
fortuna! 


100 GOTO600 : rem 96 

110 POKE1,19:POKE2,L:SYS828:RETURN :rem 144 

120 GOSUBl10:G*FNG(18)tPRINT"{PUR}";A$(G):IFGAND1THENPOKE 
0,0 :rem 213 

130 POKE214,1 : RETURN :rem 209 

140 POKER+3,2tXl-XtX-X+((PEEK(197)-26)*(X<19))-((PEEK(197 
)*33)*(X>1)):POKEl0,PEEK(S+X) srem 96 

150 POKE214,22:PRINT:POKE214,1:POKEl,6:POKE2,Xl:SYS828:PR 
INT" " jrem 66 

160 IFPEEK(10)>36THENPOKER+3,15:GOTO390 :rem 83 

170 POKEl,7:POKE2,X:SYS828:PRINT"{BLU}#"tPOKER+3,9 

trem 32 

180 IFPEEK(10)-36THENPOKER+3,15tFORG*l35T0255STEP5:POKER+ 
1,G:NEXT:POKER+1,0:1*1+1 :rem 14 

190 IFIANDPEEK(197)*36THENGOSUB300 :rem 68 

200 POKEl0,0:FORG*8TOl2:IFPEEK(S(G)+X)*40THENPOKEl0,G-2 :G 
*12 :rem 97 

210 NEXT: IFPEEK (1 0) THENGOTO370 treno 116 

220 IFPEEK(0)«0THENPOKE0,1:GOTO270 :rem 45 

230 IF0200THENL-FNL (1 9) tGOSUBl 1 Ot PRINT" {PUR}" ; A$ (FNG (8) * 
2) trem 46 

240 IFC>30OTHENL*18-LtGOSUBl1Ot PRINT"{PUR}";A$(FNG(8)*2) 

trem 119 

250 L*FNL(18)tGOSUBl20tL*19-LtGOSUBl20 trem 250 

260 IFPEEK(O)THENL-FNL(l8)tGOSUBl1OtPRINT"{RED}("1POKE214 
,1tL*l8-LtGOSUBl1Ot PRINT"{YEL}$" trem 213 

270 IFC>400THENPOKER+2,252tGOTO140 trem 23 

280 Q*Q-2t POKEl,QtPOKE2,WtSYS828tPRINT"{WHT}){GIU'}{SIN} 
"tPOKE214,ltIFQ<lTHENQ*20tW*X trem 248 

290 C-C+ltPOKER+2,250tGOTOl40 trem 157 

300 1*1-1 t POKEl,81SYS8281 A*PEEK(S+X)t PRINT"{WHT}.";t L*201 
G-240tGOSUB360tPOKER,0 trem 249 

310 PRINT"{SIN} "tIFA<37THENRETURN trem 193 

320 POKE2,X+(A-43)tO$*"@"tIFA>41THENO$*"@@{GIU'}{ 2 SIN} 
80" trem 100 
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330 SYS828:PRINTO$:F0RL-2T05:F0RB-1T06:POKE7169+B,PEEK(37 
140):NEXT : rem 150 

340 POKER+2,255-Q*L:POKE646,L:NEXT:SYS828:PRINT" :POKER 

+2,0:IFA>41THENPRINT" {GIU'H 2 SIN}{ 2 SPAZI}" 

:rem 184 

350 RETURN :rem 120 

360 FORBIITOL:POKER,G:NEXT:RETURN :rem 224 

370 POKER+3,15:POKE2,X:FORA-PEEK(10)T07STEP-1 :rem 20 

380 POKEl,A:SYS828:PRINT”{RED}.{GIU'}{SIN} ":L=50:G=255-A 
* 7 :GOSUB360:SYS828:NEXT:POKER,0 :rem 85 

390 F0RB--2T02:POKES(7+B)+B+X,46:POKES(7+B)-B+X,46:POKES( 
7+B)+X,46:POKES(7)+B+X,46 .:rem 58 

400 POKER-1,160-B*9:NEXT:FORL-1TO50:FORB-1TO3 :NEXT:POKER+ 
2,2 55-*-L* 2: NEXT :rem 178 

410 F0RB--2T02:POKES(7+B)+B+X,32:POKES(7+B)-B+X,32:POKES( 
7+B)+X,32:POKES(7)+B+X,32 :NEXT :tem 152 

420 POKER-1,0:POKER+2,0:Z-Z-l:IFZ-0THEN470 :rem 40 

430 FORA-ÌT05:PRINT"{HOME}{WHTjNUM. VITE ";Z;"PUNTI";I:L- 
40:G-140+Z*4+A*9:GOSUB360 :rem 37 

440 PRINT"{HOME}";:F0RB*1T021:PRINT" "; :NEXT:FORB-0TO99:N 
EXTB,A:POKER,0 irem 113 

450 FORB-5T019:X«0:FORL«7TOl2:IFPEEK(S(L)+B)-32THENX-X+1: 

IFX-6THENX-B:B-1 9 :rem 154 

460 NEXTL,B:GOTO800 :rem 158 

470 POKER+4,154:POKER-6,240:PRINT"{CLR}{RVS}{RED} 

{ 6 SPAZI}FINE GIOCO{ 6 SPAZI}":L«100:G-200:GOSUB360: 
L=150 :rem 208 

480 G-l70:GOSUB360:PRINT"{BLK}{ 3 GIU'} HAI FATTO"; I;"PUN 
TI":PRINT"{RED}{ 2 GIU'} IL RECORD E':";H :rem 130 

490 POKER,0:IFI>HTHENH=I:PRINT"{BLU}{ 2 GIU'}{ 2 SPAZI}CO 
NGRATULAZIONI 1(1{ 2 SPAZI}{GIU'} HAI FATTO IL RECORD! 
" :rem 13 

500 PRINT"{ 3 GIU'}{PUR}{ 3 SPAZI}PREMI SPAZIO PER 

{ 7 SPAZI}GIOCARE ANCORA{OFF}":WAITl97,32:POKER-6,255 

:rem 54 

510 PRINT"{CLR}":POKER+4,8:GOTO790 :rem 139 

520 DEFFNL(A)“INT(RND(Q)*A):DEFFNG(A)-INT(RND(H)*A) 

:rem 25 

530 DEFFNL(A) 3 INT(RND(Q)*A):DEFFNG(A)-INT(RND(H)*A):DEFFN 
H(A)-INT(RND(H)*A)*2:GOTO70 :rem 40 

540 POKER+4,154:PRINT"{CLR}{GIU'}{RED}{RVS}{ 2 SPAZI}TRAF 
FICO{ 2 SPAZI}SPAZIALE" :rem 195 

550 PRINT"{ 3 GIU'}{BLK} USA I SEGUENTI TASTI { 2 GIU'}Z. 

.SINISTRA" : rem 136 

560 PRINT"X.DESTRA" :rem 57 

570 PRINT"M.FUOCO" :rem 22 

580 PRINT" { 2 GIU'H 2 SPAZI }SPAZIO PER PARTIRE" :rem 100 

590 POKER-6,255:WAITl97,32:PRINT"{CLR}": RETURN :rem 163 

600 DEFFNL(A)-INT(RND(Q)*A):DEFFNG(A)-INT(RND(C)*A):R-368 
75 :rem 233 
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610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 


81 0 


F0RA=828T0836:READB:POKEA,B:NEXT:DATAI 66,1,164,2,24,3 
2,240,255,96 

DIMA$(18) :DIMS (12) : POKE52,28 : POKE56,28: FOR7 
1 :POKEA,PEEK(A+25600):NEXT . 

FORA-7448TO7535: READB:POKEA,B:NEXT 
POKER+3,15 :GOSUB540:POKER+4,8 :PRINT"{CLR}" 

DATA254,124,40,124,40,56,16,16 
DATAI 29,66,60,36,36,60,66,129 
DATA,48,72,84,72,48,, 

DATA38,91,162,152,130,106,60,4 
DATA24,54,41,66,169,130,84,56 
DATAI 6,16,56,84,84,56,16,124 
DATA,16,8,16,32,16,16,56 
DATAI,2,60,64,160,132,136,129 
DATA224,152,8,136,70,9,17,145 
DATAI 30,144,121,5,4,5,6,3 
DATAI 33,3,20,72,16,32,32,192 
FORA-OTOl2STEP6:A$(A)="&":A$(A+l)-"*+{GIU• ! 

":A$(A+2)="'":A$(A+3)="*+{GIU'}{ 2 SIN},-" 

A$(A+5)="%{GIU'}{ 2 SIN}%&":NEXT 
FORA-ITO!2:S(A)-7680+22*A:NEXT:S-S(8) 

X*15:I-0:Q-20:W»X:Z-5:C*0 
FORA-1T08:G-150+A*5:L=40:PRINT"{HOME}{YEL}PREPARATI A 
LLA CORSA !{BLU}":POKEl,1 :POKE2,X:SYS82 8 :rem 118 

PRINT"{BLU}#":GOSUB360:PRINT"{HOME}{ 22 SPAZI}":NEXT: 
POKER,0:GOTOl40 :rem 181 


:rem 

198 

7168T0763 

: rem 

147 

srem 

117 

srem 

122 

srem 

179 

srem 

152 

srem 

1 

srem 

1 83 

srem 

152 

srem 

95 

srera 

138 

srem 

125 

srem 

140 

srem 

177 

srem 

76 

2 SIN},- 

srem 

200 

srem 

170 

srem 

133 

srem 

203 


• 

CI6«-pIub/4 


La tomba «siila 

% 

joystick 

• • | 


Sei un coraggioso egittologo che, 
sfidando tutte le maledizioni, in¬ 
tende recuperare un favoloso te- 
• soro nascosto nella tomba del Fa¬ 
raone. Pe raggiungere la meta devi 
attraversare un misterioso labirin¬ 
to, fatto di muri e colonne, senza 


10 GOSUB630:PRINT"{CLR}":COL 
20 GOSUB240:C-2048:DX-1:DY»1 


farti catturare dalle tre mummie che 
fanno la guardia al tesoro. Più sarai 
rapido nel compiere il percorso, 
maggiore sarà la quantità di oro 
che potrai recuperare. Usa il joy¬ 
stick nella porta n. 1 per muoverti 
nelle 8 direzioni possibili. 


R4,3,4SCOLORO,1:VOL8:GOTO300 

:rem 115 

EX(1)-5:EX(2)=20:EX(3)-35 

:rem 77 


11 






30 Q-40:EY(1)»12:EY(2)«6:EY(3)-22:POKE4030,32 :rem 219 

40 POKE3072+Q*DY+DX, 33 :POKEC+Q*DY+DX,68 :rem 75 

50 FORZ-lTO3:POKE3072+Q*EY(Z)+EX(Z),36:POKEC+Q*EY(Z)+EX(Z 
),69:NEXT :rem 56 

60 POKE4071,37:POKE3047,71:S«3072 :rem 88 

70 TR-500 :rem 223 

80 SOUND3,700,2:FORZ-1TO25:NEXT :rem 177 

90 XI-JOY(1)sCY-(Xl-lORXl-80RX1-2)-(Xl-50RX1-60RX1-4) 

:rem 231 

100 CX--(Xl-30RX1-20RX1*4) +(Xl-70RX1-80RX1-6) :rem 201 

110 IFCX-0ANDCY-0THEN160 :ren 203 

120 IFPEEK(S+Q*(DY+CY)+(DX+CX))-35THEN160 :rem 143 

130 POKES+Q*DY+DX,32:DX-DX+CX:DY-DY+CY:IFPEEK(S+Q*DY+DX)- 
36THEN420 :rem 165 

140 POKEC+Q*DY+DX,68:POKES+Q*DY+DX,33 :rem 3 

150 IFS+Q*DY+DX-4071THEN520 - :rera 81 

160 B-INT(RND(1)*3)+1:CX(B)-0:CY(B)-0:W-0 :rem 26 

170 POKES+Q*EY(B)+EX(B),32:CX(B)«((EX(B)>DX)-(EX(B)<DX)) 

180 EX(B)-EX(B)+CX(B) 

190 CY(B)-((EY(B)>DY)-(EY(B)<DY)) 

200 IFPEEK(S+Q*EY(B)+EX(B)+Q*CY(B))-35THENCY(B)* 

X(B)-CX(B) 

210 EY(B)-EY(B) +CY(B) 

220 IFPEEK(S+Q*EY(B)+EX(B))*33THEN420 
230 POKES+Q*EY(B)+EX(B),36:POKEC+Q*BY(B)+EX(B),69:TR«TR-1 
SGOTO80 

240 FORM-3112TO4031 

250 IFINT (RND (1 )*3)-l ANDPEEK (M-1 ) O35THEN280 
260 NEXT 
270 RETURN 

280 POKEM-1024,66:POKEM,35:NEXT 
290 RETURN 

300 FORI-14600T014607:READJ:POKEI, J:NEXT 
310 DATA60,60,24/255,60,60,102,102 
320 FORI-14616T014623:READJ:POKEI,J:NEXT 
330 DATA255,255,255,255,255,255,255,255 
340 FORI-14624T014631 : READJ:POKEI,J:NEXT 
350 DATAI 29,153,102,60,255,60,66,66 


370 DATA0,0,126,126,126,126,0,0 
380 FORK-3072TO3111 : POKER-1024,66:POI 
KEK+960,35:NEXT 

390 FORK-3072TO4032STEP40: POKER-1024 
5,66 :POKEK+39,35 
400 NEXT 
410 GOTO 20 

420 F0RL2-1T05:FORLÌ-800T0400STEP-20 
430 SOUND1,Li,1sNEXTLl:NEXTL2 
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rem 

180 

rem 

143 

rem 

60 

: EX(B)«E 

rem 

147 

rem 

140 

rem 

134 

:TR* 

TR-1 

rem 

83 

rem 

57 

rem 

50 

rem 

215 

rem 

121 

rem 

101 

rem 

123 

rem 

225 

rem 

162 

rem 

232 

rem 

196 

rem 

232 

rem 

238 

LR}" 


rem 

143 

rem 

12 

64,66:PO 

rem 

•• 53 

POKEK-98 

rem 

105 

rem 

211 

rem 

48 

rem 

182 

rem 

68 



440 PRINTTAB(5) "{WHT}{GIU'}l GUARDIANI TI HANNO CATTURATO 

" :rem 129 

450 PRINTTAB(17)"{ 2 GIU•}{YELjORO »{BLU}"SC :rem 156 

460 PRINTTAB(4)"{GIU'}{CYN}PREMI IL PULSANTE PER RIGIOCAR 
E" :rem 113 

470 PRINTTAB(9)"{GIU'}{CYN}PREMI (Q) PER SMETTERE" 


:retn 236 

480 GETA$:X1-JOY(1)ANDl28 :IFA$-"Q"THENPOKE65298,196:POKE6 
5299/208:SCNCLR:END :rem 73 

490 IFXl-0THEN480 :rem 237 

500 IFSOPHTHENPH-SC :rem 42 

510 PRINT"{CLR}":SC-0:GOTO380 :rem 69 

520 PRINT:PRINTTAB(8)"{WHTjHAI RECUPERATO IL TESORO" 


:rem 209 

530 FORZ-lTOl00 :rem 123 

540 SOUNDl,INT(RND(1)*400)+ 500,2:NEXT :rem 118 

550 PRINT"{CLR}{ 5 GIU'PRINTTAB(16)"{BLU}ORO ={YEL}"SC 
;:PRINT" " :rem 179 

560 FORL-1TOTR:SC-SC+1:PRINTTAB(21)"{SU}"SC:NEXT:rem 186 
570 PRINTTAB(14)"{ 2 GIU'}{RED}RECORD PRINTTAB(22)" 

{YEL}"PH : rem 60 

580 PRINTTAB(9)"{GIU'}{PUR}PREMI (Q) PER SMETTERE" 


:rem 235 


590 PRINT:PRINTTAB(4)"PREMI IL PULSANTE PER CONTINUARE" 

:rem 239 

600 GETA$ :Xl -JOY(1)ANDl28:IFXl>0THENPRINT"{CLR}":GOTO380 

:rem 30 

610 IFA$»"Q"THENPOKE65298,196:POKE65299,208:SCNCLR:END 

>/ :rem 227 

620 GOTO600 :rem 103 

630 REM INIZIO CARATTERI-14336 ($3800) :rem 108 

640 COLORO,!:PRINT"{CLR}{BLK}{ 3 GIU'}MO":PRINT" 

{ 5 GIU'}TD000 D6FF 3800":PRINT"{GIU'}X":PRINT"{GIU'} 
GO670{HOME}" :rem 210 

650 POKE51,0:POKE55,0:POKE52,56:POKE56,56 :rem 141 

660 POKE239,4:FORI-l319TOl322:POKEI,13:NEXT:END :rem 117 

670 POKE65298,PEEK(65298)AND251:POKE65299,56:RETURN 

:rem 30 
:rem 0 




Torneo 

2 joystick 

0 


Cera una volta, nel lontano medio * confinanti. Questa suerra aveva 
evo, una lunga guerra tra due Regni ormai decimato gli eserciti, e per 
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evitare che si continuasse a spar¬ 
gere sangue i due Sovrani decisero 
che la vittoria sarebbe dipesa dal¬ 
l'esito di un torneo, in cui si sareb¬ 
bero fronteggiati in singoiar tenzo¬ 
ne i migliori cavalieri delle due ar¬ 
mate. Il torneo, a cui avrebbero 
partecipato tre cavalieri rossi da 
una parte e tre neri dall'altra, si sa¬ 
rebbe svolto in un'area incantata, 
dove c'erano tre griglie magiche: 
quando un cavaliere ne calpestava 
una, scompariva e subito dopo ri¬ 
compariva in un qualsiasi altro 
punto dell'arena. 


Se volete scoprire come andò a fi¬ 
nire la storia, con questo gioco sa¬ 
rete voi a guidare i cavalieri nei lo¬ 
ro duelli: un giocatore muove i ros¬ 
si e l'altro i neh. Ogni cavaliere ha 
a sua disposizione 20 frecce magi¬ 
che da scoccare contro l'avversa¬ 
no , e se le esaurisce il suo unico 
scampo è la fuga, a meno che an¬ 
che il suo nemico resti senza muni¬ 
zioni; in tal caso entrambi i conten¬ 
denti ricevono altre 20 frecce. Il ca¬ 
valiere nero è controllato dal joy¬ 
stick n. 1, quello rosso dal joystick 
n. 2. 


100 COLOR4,3/3:COLORO,2:GOT0710 :rem 84 

110 CLRsN-15sB*32sCO--1024sJB-128sHP«102sVOL8 :rem 92 
120 RN-1:R0-3152sFB*3078sFO-3102sLB-3080sLR-3104sGOSUB920 

:rem 41 

130 DX(0)=0:DX(1 ) *-40sDX(2)*-39:DX(3)*1sDX(4)«41 :DX(5)»40 
:DX(6)*39sDX(7)«-1 srem 52 

140 D2(0)*0sD2(1)*-40sD2(2)«-39sD2(3)-lsD2(4)-41sD2<5)-40 
sD2(6)*39sD2(7)*-l :rem 5 

150 DX(8)*-41:CS(0)*111:CS(1)-110:CS(2)-112:CS(3)-108:CS{ 
4)-115sCS(5)-m srem 105 

160 D2 (8) *-41 :C2(0)-110:C2(1)-110:C2(2)-n 2:C2(3)-108:C2( 
4)-115:C2(5)-111 srem 125 

170 CS (6)*113sCS(7)-109sCS(8)*114 srem 226 

180 C2(6)*l13:C2(7)*109:C2(8)*114 srem 128 

190 RESTOREsGOSUB650s FORNP*1520OTO15359 5READMDs POKENP,MD: 

NEXT srem 213 

200 PRINTSPC(15); "{SO }{ 9 SPAZI}" srem 204 

210 OP-3153sO2-4030sPOKBOP,111sP0KE02,l10sPOKEOP+CO,0sPOK 
E02+C0,66 srem 201 

220 IFAT+NA- OTHENPOKEOP,B s POKEO2 , B s RN-RN-1 s GOTO1 9 0 

srem 196 

230 JV-JOY(1)ANDN:FR-JOY(1)ANDJBsCS(0)-CS(JV):UP-OP+DX{JV 
) srem 113 

240 IFPEEK (UP) OBTHENGOSUBl 240 srem 114 

250 POKEOP,BsPOKEUP+CO,OsPOKEUP,CS(JV):OP-OP srem 118 

260 IFFR-JBTHENGOSUB330 srem 205 

270 J2-JOY(2)ANDN:F2*JOY(2)ANDJBsC2(0)-C2(J2 )sU2*02+D2(J2 



) 

:rem 

71 

280 

IFPEEK (U2) OBTHENGOSUBl 270 

:rem 

91 

290 

P0KB02,BsP0KEU2+C0,66sP0KEU2,C2(J2)s02«U2 

srem 

219 

300 

IFF2-JBTHENGOSUB370 

srem 

172 

310 

GOTO220 

srem 

97 
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320 : :rem 207 
330 IFN A-OTHENRETU RN :rem 48 
340 NA-NA-1:BP-INT(NA/10):IFBP>lTHENBP»l srem 173 
350 PRINT"{HOME}{BLK}";NA:POKE3074+BP,B:D-DX(JV): JC-CS(JV 



):GOSUB470 

:rem 

96 

360 

AP-UP+D:C1-0:GOT0410 

:rem 

158 

370 

IFAT-OTHENRETORN 

:rem 

58 

380 

AT-AT-1:BT-INT(AT/10):IFBT>lTHENBT»l 

:rem 

207 

390 

PRINT*{HOME}{RED}";SPC(36);AT:POKE3110+BT,B:D-D2(J2): 


JC-C2(J2):GOSUB470 

:rem 

61 

400 

AP-U2+D:Cl-2 

:rem 

117 

410 

AD-JC+8 : IFPEEK (AP) OBTHENRETURN 

:rem 

226 

420 

FORA-1TO15sNP-AP+D 

:rem 

74 

430 

AC-NP+CO 

:rem 

179 

440 

IFPEEK (NP) OBTHEN570 

: rem 

1 94 

450 

POKEAP,B: POKE AC f Cl:POKENP,AD :AP-NP:NEXT: 

POKEAP,B: 

RETO 


RN 

:rem 

173 

460 

• 

• 

:rem 

212 

470 

IFD<>OTHENRETURN 

:rem 

39 

480 

IFJC-110THEND--40 : RETURN 

:rem 

226 

490 

IFJC-111THEND-40 s RETURN 

:rem 

183 

500 

IFJC-109THEND--1: RETURN 

:rem 

176 

510 

IFJC-114THEND--41: RETURN 

srem 

225 

520 

IFJC-113THEND-39: RETURN 

srem 

187 

530 

IFJC-108THEND-1: RETURN 

srem 

133 

540 

IFJC-112THEND--39:RETURN 

srem 

233 

550 

D-41: RETURN 

srem 

154 

560 

• 

• 

srem 

213 

570 

IFPEEK(NP)<108THENPOKEAP,B:RETURN 

srem 

139 

580 

IFC1-0THEN620 

srem 

212 

590 

POKELB,B:LB-LB-1:GOSUB670 

srem 

17 

600 

IFLB-FB-1THEN1320 

srem 

203 

610 

GOTO190 

srem 

106 

620 

POKELR/B:LR-LR-1:GOSUB680 

srem 

60 

630 

IFLR-FO-1THEN1330 

srem 

236 

640 

GOTOl90 

srem 

109 

650 

NA-20jAT-20:PRINT"{HOME}{BLK}";NA;SPC(32){RED}" 

; AT 



srem 

241 

660 

PRINT"{BLU}{HOME}{ 2 GIU'}{RVS}" ; SPC(15) 

?"DUELLO 

" ; RN 


{OFF}"sRN-RN+l:FORI1*1TO500:NEXT:RETURN :rem 

218 

670 

DP-UP:OM»U2:GOTO690 

srem 

191 

680 

DP-U2:OM«UP 

srem 

174 

690 

POKEAP,B:POKEOM,B:GOSUB14 2 0:FORK-12 6TO12 4STEP-1 :POKED 


P,K 

srem 

75 

700 

FORH-1TO100:NEXT:NEXT:POKEDP,127 :POKEDP, 

BsPOKEUP, 

B:PO 


KEU2,B:RETURN 

srem 

124 

710 

GOSUB1430 

srem 

224 

720 

FORNP-15200T0153 59 :READMD:POKENP,MD:DC-DC+MD:NEXT 



srem 

98 

730 

IFDCOl 3392THENPRINT"ERRORE NELLE DATA": 

END srem 

150 

740 

GOTOl10 

srem 

102 
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rem 

214 

rem 

179 

rem 

198 

rem 

76 

rem 

77 

rem 

216 

rem 

246 

rem 

247 

rem 

219 

0,0, 

16,5 

rem 

185 



930 

940 

950 


DATA0,0,8,16,4,16,0,0 
DATAO,0,20,10,32,20,0,0 
DATA68,9,32,132,1,40,130,17 

DATAO,0,0,0,0,0,0,0 

• 

• 

PRINT"{BLK}{CLR}{GRN}{ 12 SPAZI}{RVS}{ 

N E 0{ 2 SPAZI} {OFF}{RED} { 14 SPAZI}"; 
NA-20:AT-20:PRINT" {HOME}";NA;SPC(B);AT 
FORL» 3072TO3083; POKEL+CO, 0 :NEXT : FORL- 31 
+CO,66:NEXT 

FORL-FBTOLB:POKEL,110:NEXT:FORL-FOTOLR: 


:rem 
:rem 
:rem 
:rem 
:rera 
: rem 
2 SPAZI}T O R 
: rem 127 
:rem 164 
05T03110:POKEL 
:rem 239 
POKEL,110:NEXT 


:rem 31 

960 PRINT"{BLK}U{ 38 C}l_" :rem 144 

970 GOSUBl220:POKE315l+CO,0:POKE3154,66:POKE3189+CO,0:POK 
E3189,66:POKE3190,HP :rem 41 

980 POKE31 90+CO,66:PRINT"B K U{ 4 CU{ 2 SPAZI }U{ 5 C}I 
{ 2 SPAZI }U{ 5 C}U 2 SPAZI }U{ 4 C}l. J B" :rem 68 
990 PRINT"B{ 3 SPAZI}J{ 4 C}K{ 2 SPAZI}J{ 5 C}K 

{ 2 SPAZI}J{ 5 C}K{ 2 SPAZI}J{ 4 C}K{ 3 SPAZI}B" 

:rem 1 

1000 GOSUBl220 :rem 6 

1010 PRINT"B{ 3 SPAZI }U{ 7 C}U 2 SPAZI }U{ 8 CU 

{ 2 SPAZI }U{ 7 C}U 3 SPAZI }B" :rem 179 

1020 PRINT"B{ 3 SPAZI}j{ 7 C}K{ 2 SPAZI}j{ 8 C}K 

{ 2 SPAZI }J{ 7 C}K UCK 11 ' :rem 58 

1030 PRINT"JCI";SPC {T4T; h JT 2 C}" :rem 147 

1040 PRINT"TT C}K{ 3 SPAZI }U{ 4 C}I_{ 4 SPAZI }UCI 

{ 2 SPAZI }UCI{ 4 SPAZI }U{ 4 CU" :rem 253 

1050 PRINT"{ 6 SPAZI}J{ 4 C}K{ 2 SPAZI}UCK{ 6 SPAZI}JCI 

{ 2 SPAZI}J{ 4 CTK{ 3 SPAZI}U{ 2 cT* - :rem 137 

1060 PRINT"{ 2 C}I{ Tl SPAZI}B{ 1? SPAZI}B{ 11 SPAZI}JCI 
" :rem 193 

1070 PRINT"UCK U{ 2 C}l U{ 2 CU B{ 4 SPAZI} {BLK} «+>] 
{RED} {<+>}TbLK}T T SPAZlTB UT 2 C}^ U{ 2 C}l^ 

{ 3 SPAZI}B" :rem 90 
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197 


241 


1080 PRINT"B{ 3 SPAZI}J{ 2 C}K J{ 2 C}K B{ 4 SPAZI}{RED} 
[<+>l{BLK}[<+>]{ T SPAZlTB J{ 2 CjK J{ 2 C}K UCK" 

srem 167 

1090 PRIHT"JCI{ 11 SPAZI}B{ 10 SPAZI}B{ 11 SPAZI}J 

{ 2 C}* srem 

1100 PRINT" { 2 C }K{ 3 SPAZI}U{ 4 CH{ 2 SPAZI} JCI 

{ 6 SPAZI} UCK { 2 SPAZI}u{ 4 C}l^{ 6 SPAZI}" srem 
1110 PRINT"{ 6 SPAZI}J{ 4 C}K{ 4 SPAZI}JCK{ 2 SPAZI}JCK 
{ 4 SPAZI}J{ 4 CTK{ 3 SPAZI}U{ 2 cF“ 

1120 PRINT" { 2 CU{ 14 SPAZI}JCI" 

1130 PRINT"UCK U{ 7 C}I.{ 2 SPAZI }U{ 8 C}^{ 2 SPAZI}U 
{ 7 C}TT“3 SPAZI }B" 

1140 PRINT"B{ 3 SPAZI}J{ 7 C}K{ 2 SPAZI}j{ 8 C}K 
{ 2 SPAZI}J{ 7 C}K{ 3 SPAZI}B" 

1150 GOSUB1220 

1160 PRINT"B{ 3 SPAZI }U{ 4 C}H 2 SPAZI }U{ 5 CU 

{ 2 SPAZI}U{ 5 C}I{ 2 SPAZI}U{ 4 C}l{ 3 SPAZI}B" 

srem 

1170 PRINT"B I J{ 4 C}K{ 2 SPAZI}j{ 5 C}K{ 2 SPAZI}J 
{ 5 C}K{ 2 SPAZI}J{ 4 C}K U B" 

1180 PRINT"B"s POKE3993 »HP 
1190 FORL-2'567TO3047 sPOKEL,0sNEXT 
1200 POKE4031,93sPOKE4032 # 74sFORL-4033TO4070sPOKEL,67sNEX 



2 rem 

58 

2 

SPAZI}U 



: rem 

87 

8 

C } K 



:rem 

156 


srem 

12 

5 

C}I 


3 

SPAZI}B" 



:rem 

75 

2 

SPAZI}J 



: rem 

198 


:rem 

98 


; rem 

14 


1210 

1220 

1230 

1240 

1250 

1260 


POKE3994,66s POKE4029 r 66s POKE4071 ,75 : RETURN 
PRINT"B";SPC(38);"B"sRETURN 


srem 

srem 

srem 

srem 

srem 


IFPEEK (UP) OHPTHENUP-OPS RETURN 
RF-INT (RND ( 1 ) * 879 ) +RO s IFPEEK (RF) OBTHENl 250 s rem 
UP-RFsPOKEUP4C0,0sPOKBOP,BsMP-UPsJP-JVSGOSUB1300 

srem 


196 

27 

144 

0 

77 

103 

200 


1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 


IFPEEK (U2) OHPTHENU2*02: RETURN srera 246 
R2- INT (RND ( 1 ) * 879 ) +RO s IFPEEK (R2 ) OBTHENl 280 s rem 69 
U2-R2 sPOKEU 2+CO,66sPOKEO2,B:MP«U2sJP-J2sGOSUBl300sRE 
TURN srem 113 
FORMN-124T0126:POKEMP,MN:FORW-lTOl50:NEXT:NEXTsPOKEM 
P/CS(JP): RETURN srem 1 
: srem 255 
WN$*" ROSSI ":LS$-" NERI "sT1-3:T2-6:G0T01340 

srem 233 

WNS-" NERI ":LS$«" ROSSI ":Tl-3:T2-5 srem 174 
PRINT"{CLR}";TAB(Tl) f "{GIU'}{BLK}I CAVALIERI";WN$;"S 
ONO VITTORIOSI!{GIU*}" srem 29 
PRINTTAB(T2);"ESSI HANNO SCONFITTO I";LS$ srem 43 


PRINTTAB(13)?"{GIU'}IN";RN-1;"DUELLI. 


srem 175 


PRINT"{ 14 GIU'}{ 3 SPAZI}PREMI <RETURN> PER GIOCARE 
ANCORA" srem 246 

PRINT"{ 5 SPAZI}0 UN ALTRO TASTO PER SMETTERE":POKE2 
39,0 . srem 79 

GETI$:IFI$*""THENl390 srem 205 
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1400 IFI$OCHR$ (13)THENPOKE65298,PEEK(65298)OR4:POKE65299 
,208:SCNCLR: END :rera 48 

1410 GOTO!10 treni 145 

1420 SOUND3,800,20:RETURN trem 239 

1430 REM INIZIO CARATTERI=14336 ($3800) :rem 155 

1440 PRINT"{CLR}{WHT}{ 3 GIU'}MO"tPRINT"{ 5 GIU'jTDOOO d6 
FF 3800":PRINT"(GIU' }X" :PRINT"{GIU'}GOl470{HOME}" 

:rem 95 

1450 POKE51,0 :POKE55,0 :POKE52,56:POKE56,56 :rem 188 

1460 POKE239,4:FORI = l319T01322:POKEI,13:NEXT:END:rem 164 
1470 POKE65298,PEEK(65298)AND251 :POKE65299,56:RETURN 

:rem 77 
treni 0 


Dieta equilibrata 

Mco«da parte 


C64s -plus/4 

Stampante opz 


Sul numero 35 della nostra rivista 
(per intenderci quello della scorsa 
settimana) è stata pubblicata la 
prima parte di questo ottimo pro- 
gramma che ti permetterà di otte¬ 
nere un preciso responso dietolo¬ 
gico sulla tua alimentazione. Eccoti 
quindi la seconda parte, a cui farà 
seguito la prossima settimana la 
terza ed ultima. Per continuare il 


lavoro di battitura carica STOP 
BUG, attivalo e carica la prima par¬ 
te di DIETA EQUILIBRATA, dopo¬ 
diché digita la seconda parte e sal¬ 
va il tutto su nastro o disco. Ricor¬ 
diamo ai possessori del Plus/4 che 
DIETA EQUILIBRATA è, con una 
semplicissima modofica illustrata 
nel commento alla prima parte, 
adattabile a questo computer. 


2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 


PRINT"{CLR}{ 3 GIU'}" 



:rem 

96 

PRINT"{GIU'}VUOI SAPERE SE LA 

TUA 

DIETA 

GIORNALIERA 

E' EQUILIBRATA? (S/N)" 



:rem 

81 

GETZX$:IFZX$=""THEN2270 



: rem 

1 55 

IFZX$< >"N"ANDZX$< >"S"THEN2270 



:rem 

241 

IFZX$="N"THEN2840 



: rem 

254 

PRINT"{CLR}{ 4 GIU'} {RVS}SEI 

MASCHIO O 

FEMMINA? 


{OFF} (M/F) 



srem 

114 

GETS$:IFS$=""THEN2310 



srem 

211 

IFS$="M"THENPRINT"{SU}"TAB(31) 

"MASCHIO" 

srem 

0 

IFS$■"F"THENPRINT"{SU}"TAB(31) 

"FEMMINA" 

srem 

243 

IFS$< >"M"ANDS$< >"F"THEN231 0 



srem 

29 

INPUT"{GIU 1 } {RVS}QUANTI ANNI 

HAI 

" ; E 

. srem 

1 1 

INPUT"{GIU'} {RVS}QUANTO PESI 

(IN 

KG) 

P% srem 

245 
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2370 PRINT" { 2 GIU’H 2 SPAZI} ASPETTA UN ATTIMO...STO VAL 
UTANDO SE" :rem 8 

2380 PRINT"{GIU'}{ 2 SPAZI}LA TUA DIETA E' EQUILIBRATA. 


• • 


2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 


PORDF-lTOl000:NEXT:PRINTCHR$(147) 

IPE<12THEN2910 
IPS$-"F"THEN2530 
REM:CONFRONTI LOGICI UOMINI 
IFE>-12ANDE<14THENCG«P%* 65 :GOTO26 40 
IFE<16THENCG=P%*55:GOTO2640 
IFE<18THENCG-P%*50 :GOTO2640 
IFE<20THENCG-P%*48:GOTO2640 
IFE< 22THENCG-P%* 46:GOTO2640 
IFE<40THENCG-P%*42:GOTO2640 
IFE<50THENCG-P%*39:GOTO2640 
IFE<60THENCG-P%*37:GOTO2640 
IFE<70THENCG-P%*34:GOTO2640 
IFE>»70THENCG»P%*31:GOTO2640 
REM:CONFRONTI LOGICI DONNE 
IFE>»12ANDE<14THENCG-P%*55:GOTO2640 
IPE<16THENCG«P%*50:GOTO2640 
IFE<18THENCG*P%*45:GOTO2640 
IFE<20THENCG-P%*42:GOTO2640 
IFE<22THENCG-P%*40:GOTO2640 
IFE<40THENCG*P%*38:GOTO2640 
IFE<50THENCG-P%*35:GOTO2640 
IFE<60THENCG m P%* 32:GOTO2640 
IFE< 70THENCG*P%* 31:GOT02640 
IFE>-70THENCG«P%*27:GOTO2640 
REMiCONFR.LOGICI*STAMPA DIETA EQUILIBRATA 
GOSUB230 

IF(H+J)<8THENPRINT:PRINT"{ 2 SPAZI}{RVS) CARENZA DI 
PROTEINE TOTALI" :rem 124 

IF(H+J)>20THENPRINT:PRINT"{ 2 SPAZI}{RVS} ECCEDENZA 
DI PROTEINE TOTALI" :rem 39 

IFH<4THENPRINT:PRINT"{ 2 SPAZI}{RVS) CARENZA DI PROT 

BINE ANIMALI" :rem 226 

IFH>10THENPRINT:PRINT"{ 2 SPAZI}{RVS) ECCEDENZA DI P 

ROTEINE ANIMALI" :rem 144 

IFK>35THENPRINT:PRINT"{ 2 SPAZI}{RVS} ECCEDENZA DI G 


rem 

182 

rem 

63 

rem 

52 

rem 

141 

rem 

32 

rem 

115 

rem 

127 

rem 

125 

rem 

1 26 

rem 

127 

rem 

1 24 

rem 

132 

rem 

123 

rem 

122 

rem 

183 

rem 

197 

rem 

116 

rem 

124 

rem 

131 

rem 

122 

rem 

1 23 

rem 

131 

rem 

121 

rem 

120 

rem 

121 

rem 

190 

rem 

209 

rem 

226 


RASSI" :rem 250 

2710 IFL>65THENPRINT:PRINT"{ 2 SPAZI}{RVS} ECCEDENZA DI C 

ARBOIDRATI" :rem 90 

2720 GOSUB310 treni 223 

2730 0$-"{ 2 SPAZI){RVS} DIETA CON PRINCIPI ALIMENTARI 

{OFF} { 20 SPAZI }{RVS) EQUILIBRATI" treni 60 

2740 IF (H+J) >“8AND (H+J) -<20ANDH> « 4ANDHC-1 0ANDK<-35ANDL<-6 
5THEN2760 treni 152 

GOTO2770 trem 215 

treni 231 


2750 

2760 


IFVT$-"A Bl B2 PP C "THENPRINTOS 
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2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 


PRINT:PRINT"{ 2 SPAZI}****************************** 

*****" :rem 38 
IFD*1THENPRINT#4:CLOSE4s D«0:ET*0 :GOTO28 40 srem 117 
PRINT"{GIU'}VUOI LA VALUTAZIONE SU STAMPANTE?(S/N)" 


srem 
srem 
srem 
srem 
srem 
srem 
srem 
s rem 


srem 

srem 


GETZ$sIFZ$“""THEN2800 

IFZ$-"S"THENI2-I2+1sIFI2<2THENGOSUB6260 
IFZ$«"S"THEND»1SGOTO6310 
IFZ$0"S"ANDZ$0"N"THEN2800 
PRINT"{GIU'}{ 4 SPAZI}VUOI CONTINUARE" 

PRINT"{ 8 SPAZI}CON UN'ALTRA DIETA?(S/N)" 

GETKK$sIFKK$-""THEN2860 
IFKK$«"N"THENPRINT"(GIU'){WHT} OK,CIAO{YEL}"SEND 

srem 

IFKK$< >"N"ANDKK$< >"S"THEN2860 srem 

CT»0sAT-0sVT»0sGT»0s ZT-OsSi$■""sS2$«""sS3$«""sS4$ 
:S5$*""• 

GOTO5490 

REM5CONFRONTI LOGICI PER E<12 srem 

PT-(AT+VT)/4:GT-GT/9:ZT-ZT/4 srem 

ET-OsREM AZZER.CONTROLLO STAMPA ETA'<12 srem 
IFE<-0.5THENCG-650sPG-12sGG-22sZG-101SGOT03000 

srem 

IFE<lTHENCG-950sPG-25sGG-32sZG-140sGOTO3000srem 
IFE<4THENCG-1250:PG-29sGG-42s ZG-189:GOT03000 

srem 

IFE<7THENCG»1720:PG-38:GG»57:ZG-260sGOT03000 

srem 

IFE<10THENCG=2020:PG*45:GG®67:ZG*309 :GOTO3000 

srem 

IFE<12THENCG*2400s PG”55:GG*79:ZG*367:GOTO3000 

srem 

REM: STAMPA VALUTAZIONI DIETA E<12 srera 


GOSUB230 


rem 


139 

233 

153 

203 

65 

235 

133 

109 

144 

196 

B NN 

244 

214 

30 

23 

206 

2 SO 
103 

167 

169 

209 

222 

72 

217 


IFPT>PG+PG/4THENPRINT:PRINT" {RVS} ECCESSO DI PROTEI 


NE' 


srem 195 


IFPT<PGTHENPRINTSPRINT" {RVS} CARENZA DI PROTEINE" 

srem 156 

IFGT>GG+GG/10THENPRINT:PRINT" {RVS} ECCESSO DI GRASS 
I" srem 58 

IFZT>ZG+ZG/10THENPRINT:PRINT" {RVS} ECCESSO DI CARBO 
IDRATI" srem 207 

GOSUB310 ; rem 221 

0$»"{ 2 SPAZI}{RVS} DIETA CON PRINCIPI ALIMENTARI 
{OFF}{ 20 SPAZI}{RVS} EQUILIBRATI" srem 58 

IFPT<-PG+PG/4ANDPT>-PGANDGT»<GG+GG/10ANDZT<■ZG+ZG/10 


THEN2760 
GOTO2770 

REM:LETTURA DATA 

DIMA$(216,7) 

F0RR-1T0216 


srem 

srem 

srem 

srem 

srem 


111 

213 

29 

81 

169 
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3130 FORC=lT07 :rem 57 

3140 READA$(R,C) : rem 91 

3150 NEXT:NEXT :rem 129 

3160 REMsSUB 2*PANE :rem 82 

3170 DATA"PANE TIPO O",270,8,0.5,58,"{ 2 SPAZljBl B2 

{ 6 SPAZI}", 0 :rem 12 

3180 DATA"PANE TIPO 00",280,8,0.5,61 ,"{ 2 SPAZljBl B2 

{ 6 SPAZI}",0 : rem 25 

3190 DATA"GRISSINI",410,10,10,70,"{ 2 SPAZl}Bl B2 PP 

{ 3 SPAZI}",0 srem 84 

3200 DATA"FETTE BISCOTTATE",400,11,6,76,"{ 2 SPAZI}Bl B2 
PP{ 3 SPAZI}",0 srem 41 

3210 DATA"BISCOTTI SENZA UOVA",420,6,8,81 ,"{ 13 SPAZI}",0 

srem 42 

3220 DATA"CRACKERS SALATI",440,9,12,74,"{ 13 SPAZI}",0 

srem 76 

3230 DATA"BISCOTTI UOVO",417,6,7.9,85.4,"{ 13 SPAZI}",7 

srem 146 

3240 DATA"PANE TIPO 1",267,8.9,0.6,60.3,"{ 2 SPAZl}Bl B2 
{ 6 SPAZI}",0 srem 180 

3250 DATA"PANE INTEGRALE",243,7.5,1.3,53.8,"{ 2 SPAZljBl 
B2{ 6 SPAZI}",0 srem 221 

3260 DATA"PANINI OLIO",302,7.7,5.8,58.3,"{ 2 SPAZl}Bl B2 
{ 6 SPAZI}",0 srem 24 

3270 DATA"FARINA FRUM.INTEGR.",321,1 1 .9,1 .9,68.4, " 

{ 2 SPAZI}Bl B2 PP{ 3 SPAZI}",0 srem 4 

3280 DATA"FARINA FRUM.O",343,11.5,1,76.9,"{ 2 SPAZljBl B2 
PP{ 3 SPAZI}",0 srem 250 

3290 DATA"FARINA FRUM.00",343,11,0.7,78,"{ 2 SPAZl}Bl B2 
PP{ 3 SPAZI}",0 srem 168 

3300 DATA"FARINA MAIS",365,8.7,2.7,81.5,"A Bl B2 PP 

{ 3 SPAZI}",0 srem 225 

3310 DATA"FARINA RISO",363,7.3,0.5,87.8,"{ 2 SPAZl}Bl B2 
PP{ 3 SPAZI}",0 srem 178 

3320 DATA"FARINA ORZO",360,10.6,1.9,80,"{ 2 SPAZl}Bl B2 P 

P{ 3 SPAZI}",0 srera 130 

3330 REMsSUB 4*CARNI srem 156 

3340 DATA"CERVELLO",150,0,12,0,"{ 2 SPAZI}Bl B2 PP C ",10 

srem 84 

3350 DATA"CUORE",150,0,8,0,"{ 2 SPAZljBl B2 PP C ",19 

srem 85 

3360 DATA"FEGATO",140,0,4,4,"A Bl B2 PP C ",21 srem 199 
3370 DATA"MILZA",100,0,3,0,"{ 2 SPAZljBl B2 PP C ",19 

srem 76 

3380 DATA"TRIPPA",100,0,4,0,"{ 2 SPAZljBl B2{ 6 SPAZI}",1 
6 srem 187 

3390 DATA”CARNE IN SCATOLA",85,0,3.5,0,"{ 2 SPAZI}Bl B2 P 

PC ",14 srem 18 

3400 DATA"COTECHINO",390,0,34,0,"{ 2 SPAZljBl B2 

{ 6 SPAZI}",20 srem 185 
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3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 


DATA"MORTADELLA",420,0,40,0,"{ 2 SPAZI}Bl B2 PP 
{ 3 SPAZI}", 15 treni 158 

DATA"PROSCIUTTO CRUDO",460,0,42,0,"{ 2 SPAZljBl B2 
{ 6 SPAZI}",20 treni 181 

DATA"PROSCIUTTO MAGRO",150,0,5,0,"{ 2 SPAZl}Bl B2 PP 
{ 3 SPAZI}",28 treni 34 

DATA"PROSCIUTTO COTTO",410,0,37,0,"{ 2 SPAZljBl B2 P 
P{ 3 SPAZI}",21 : rem 99 

DATA"SALAME STAGIONATO",455,0,35,0,"Bl-B2-PP ",35 


treni 209 

DATA"SALSICCIA FRESCA",330,0,30,0,"{ 2 SPAZl}Bl B2 P 

P{ 3 SPAZI}",15 trem 253 

DATA"VITELLO",110,0,3,0,"{ 2 SPAZl}Bl B2 PP 
{ 3 SPAZI}",21 treni 166 

DATA"MANZO MAGRO",120,0,4,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",21 treni 133 

DATA"MAIALE MAGRO",140,0,7,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",19 trem 182 

DATA"CAVALLO MAGRO",110,0,3,0,"{ 2 SPAZljBl B2 
{ 6 SPAZI}",21 trem 89 

DATA"AGNELLO MAGRO",105,0,3,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",20 trem 253 

DATA"CAPRETTO",120,0,5,0,"{ 2 SPAZl}Bl B2 PP 
{ 3 SPAZI}",19 trem 239 

DATA"CONIGLIO MAGRO",105,0,1,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",21 trem 80 

DATA"POLLO",155,0,9,0,"{ 2 SPAZljBl B2 PP{ 3 SPAZI} 
",19 trem 33 

DATA"PETTO DI POLLO",95,0,1,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",22 trem 0 

DATA"GALLINA",175,0,10,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",21 trem 184 

DATA"ANATRA",155,0,10,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",16 trem 122 

DATA"PETTO TACCHINO",135,0,5,0,"{ 2 SPAZljBl B2 PP 
{ 3 SPAZI}",22 trem 104 

DATA"RANA",70,0,1,0,"{ 2 SPAZI}Bl B2 PP{ 3 SPAZI}",1 
5 trem 130 

REM:SUB 6*ORTAGGI-LEGUMI trem 46 

DATA"ASPARAGI",30,4,0.2,3.5,"A Bl B2 PP C ",0 

trem 180 

DATA"CARCIOFI",22,3,0,2.5,"A Bl B2 PP C ",0trem 76 

DATA"CAROTE",33,1,0.2,7.6,"A Bl B2 PP C ",0trem 49 

DATA"CAVOLFIORE",25,3.2,0.3,2.7,"A Bl B2 PP C ",0 

trem 190 

DATA"CAVOLO",20,2,0.2,2.5,"A Bl B2 PP C ",0trem 48 
DATA"CIPOLLE",26,1,0.1,5.7,"{ 2 SPAZljBl B2 PP C ",0 

trem 61 

DATA"FINOCCHI",9,1.2,0,1,"A Bl B2 PP C ",0 trem 35 

DATA"FUNGHI FRESCHI",30,3,0.5,4,"{ 2 SPAZI}Bl B2 PP 
C ",0 trem 151 
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3690 DATA"FUNGHI SECCHI",210,15,2.7,34,"{ 13 SPAZI}",0 

s rem 19 

3700 DATA"LATTUGA",19,1.8,0.4,2.2,"A Bl B2 PP C ",0 

:rem 230 

3710 DATA"MELANZANE",15,1.1,0.1,2.6,"A Bl B2 PP C ",0 

:rem 102 

3720 DATA"PATATE",85,2.1,1, 1 8 , " A Bl B2 PP C ",0 :rem 8 
3730 DATA"PEPERONI",22,0.9,0.3,4.2,"A Bl. B2 PP C ",0 

:rem 52 

3740 DATA"POMODORI MATURI",20,1,0.2,4,"A Bl B2 PP C ",0 

:rem 69 

3750 DATA"POMODORI INSAL." f 18,1.2,0.2,3,"A Bl B2 PP C ",0 

srem 127 

3760 DATA"POMODORI PELATI",20,1.2,0.5,3,"A Bl B2 PP C ",0 

srem 150 

3770 DATA"RAVANELLI",12,0.8,0.1,2,"A Bl B2 PP C ",0 

srem 14 

3780 DATA"SEDANO",20,2.3,0.2,4,"A Bl B2 PP C ",0srera 42 
3790 DATA"SPINACI",30,3.4,0.5,3,"A Bl B2 PP C ",0 

srera 125 

3800 DATA"ZUCCHINE",11,1.3,0.1,1.5,"A Bl B2 PP C ",0 

srem 32 

3810 DATA"CECI",340,22,5,52,"A Bl B2 PP C ",0 srem 92 
3820 DATA"FAGIOLINI VERDI",20,2,0.1,2.5,"A Bl B2 PP C ",0 

srem 118 

3830 DATA"FAGIOLINI FRES.",110,6.5,0.5,20,"A Bl B2 PP C " 

,0 srem 195 

3840 DATA"FAGIOLI SECCHI",320,23.5,2.5,51,"A Bl B2 PP C " 

,0 srem 182 

3850 DATA"LENTICCHIE",330,25,2.5,54,"A Bl B2 PP C ",0 

srem 136 

3860 DATA"FAVE FRESCHE",40,5.5,0.1,4.5,"A Bl B2 PP C ",0 

srem 250 

3870 DATA"PISELLI VERDI",80,7,0.2,13,"A Bl B2 PP C ",0 

srem 214 

3880 DATA"PISELLI SECCHI",320,22,2,54,"A Bl B2 PP C ",0 

srem 13 

3890 REM:SUB 8*FRUTTA srem 20 

3900 DATA"ALBICOCCHE",41,1,0.1,9,"A Bl B2 PP C ",0 

srem 204 

3910 DATA"ARANCIE",38,0.8,0.1,8.5,"A Bl B2 PP C ",0 

srem 208 

3920 DATA"BANANE",90,1.2,0.2,21,"A Bl B2 PP C ",0 

srem 69 

3930 DATA"CACHI",65,0.7,0.2,15,"A Bl B2 PP C ",0:rem 2 

3940 DATA"CILIEGE",45,0.9,0.1,10,"A Bl B2 PP C ",0 

srem 151 

3950 DATA"COCOMERO",21,0.3,0,5,"A Bl B2 PP C ",0:rem 102 

3960 DATA"FICHI",70,1,0.2,16,"A Bl B2 PP C ",0 srem 169 
3970 DATA"FRAGOLE",32,0.8,0.5,6.5,"A Bl B2 PP C ",0 

srem 223 
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3980 DATA-LIMONI",10,0.6,0,2,"{ 2 SPAZljBl B2 PP C H ,0 

:rem 151 

3990 DATA"MANDARINI”,44,0.8,0.1,10,"A Bl B2 PP C ",0 

:rem 59 

4000 DATA-MELE",40,0.2,0.1,10,"A Bl B2 PP C ",0 srem 176 

4010 DATA-PERE",47,0.3,0.2,11,"A Bl B2 PP C ",0 srem 196 

4020 DATA-PESCHE",45,0.5,0.3,10,"A Bl B2 PP C ",0 

srem 81 

4030 DATA"POMPELMO",26,0.6,0,6,”{ 2 SPAZljBl B2 PP C ",0 

srem 54 

4040 DATA-PRUGNE”,43,0.5,0.1,10,"A Bl B2 PP C ",0 

srem 104 

4050 DATA”UVA" ,'67,0.5,0.1,16,"A Bl B2 PP C ”,0 srem 144 
4060 DATA-ARACHIDI TOST.",600,29,50,8.5{ 2 SPAZljBl B2 
PP{ 3 SPAZI}”,0 srem 217 

4070 DATA-CASTAGNE FRES.",200,3.5,1.8,43,"{ 2 SPAZI}Bl B2 

PP{ 3 SPAZI}”,0 srem 246 

4080 DATA-CASTAGNE SECCHE",365,5,3,80,"{ 2 SPAZI}Bl B2 PP 
{ 3 SPAZI}",0 srem 140 

4090 DATA-DATTERI SECCHI",270,3,0.6,63,"A Bl Bl PP 

{ 3 SPAZI}",0 ;rem 243 

4100 DATA-MANDORLE”,540,16,51,4,"{ 2 SPAZI}Bl B2 PP 

{ 3 SPAZI}",0 srem 18 

4110 DATA-NOCI",555,10,55,5,"A Bl B2{ 6 SPAZI}",0 

srem 144 

4120 DATA-NOCCIOLE SECCHE",630,13,63,2,"A Bl B2 PP 

•{ 3 SPAZI}”,0 srem 248 

4130 DATA"PRUGNE SECCHE",165,2,1,37,"A Bl B2 PP 

{ 3 SPAZI}",0 srem 79 

4140 REMsSUB 11-CONDIMENTI srem 71 

4150 DATA-OLIO DI SEMI",900,0,100,0,"{ 13 SPAZI}",0 

srem 28 

4160 DATA-OLIO DI OLIVA",900,0,100,0,-{ 13 SPAZI}",0 

srem 106 

4170 DATA"STRUTTO-,890,0,99,0,"{ 13 SPAZI}",0 srem 94 
4180 DATA-LARDO",880,0,98,0,"{ 13 SPAZI}",0 srem 138 

4190 DATA"PANCETTA",675,0,75,0,"{ 13 SPAZI}",0 srem 102 
4200 DATA-BURRO",755,0,84,0,"A{ 13 SPAZI}",0 srem 216 
4210 DATA-MARGARINE",730,0,81 ,0,"{ 13 SPAZI}”,0 srem 154 
4220 DATA"MARGARINE'GONFIATE'",360,0,40,0,"{ 13 SPAZI}",0 

srem 48 

4230 REMsSUB 5-PESCE srem 160 

4240 DATA"ACCIUGHE",91,0,3,0,"A Bl B2 PP{ 3 SPAZI}",16 

srem 217 

4250 DATA-ANGUILLA",255,0,23,0,"A Bl B2 PP{ 3 SPAZI}",12 

srem 78 

4260 DATA-CALAMARI",70,0,2,0,"A Bl B2 PP{ 3 SPAZI}",12.5 

srem 55 

4270 DATA-CEFALI",125,0,7,0,"A Bl B2 PP{ 3 SPAZI}",16 

srem 121 
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4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 


DATA"GAMBERI",60,0,1,0,"{ 2 SPAZljBl B2 PP 

{ 3 SPAZI}", 1 3 : rem 81 

DATA"MERLUZZO",70,0,0.3,0,"{ 2 SPAZljBl B2 PP 

{ 3 SPAZI}",17 : rem 72 

DATA"NASELLO",70,0,0.3,0,”{ 2 SPAZljBl B2 PP 

{ 3 SPAZI}",17 :rem 198 

DATA"POLPO”,50,0,1,0,"A Bl B2{ 6 SPAZI}",10.5 

:rem 222 

DATA"SARDA",120,0,5,0,”A{ 12 SPAZI}",19 :rem 177 
DATA"SEPPIA",70,0,1.5,0,"{ 13 SPAZI}",14 :rem 246 
DATA"SOGLIOLA",80,0,1.7,0,"{ 2 SPAZl}Bl B2 PP 
{ 3 SPAZI}",16 jrem 27 


DATA"TONNO A FETTE",155,0,8,0,"A Bl B2 PP{ 3 SPAZI} 

:rem 27 

DATA"TRIGLIA",120,0,6,0,"A Bl B2 PP{ 3 SPAZI}",16 


* :rem 219 

DATA"TROTA",85,0,3,0,"{ 2 SPAZljBl B2 PP{ 3 SPAZI}", 

:rem 238 

DATA"ALICI SOTT'OLIO",210,0,12,0,"A Bl B2 PP 
{ 3 SPAZI}",25 :rem 4 

DATA"ALICI SOTTO SALE",140,0,4,0,"A{ 12 SPAZI}",26 

:rem 108 

DATA"ARINGA SALATA",215,0,15,0,"A{ 7 SPAZI}PP 
{ 3 SPAZI}",20 :rem 123 

D ATA"SALMO NE SALAMOIA",190,0,12,0,"A Bl B2 PP 
{ 3 SPAZI}",21 :rem 81 

DATA"STOCCAFISSO SECCO",340,0,3,0,"{ 2 SPAZljBl B2 P 

P{ 3 SPAZI}",78 irem 66 

DATA"TONNO SOTT'OLIO",225,0,15,0,"A Bl B2 PP 
{ 3.SPAZI}",23 * :rem 51 

:rem 0 


Generatore di quiz 



Vedendo questo programma, an¬ 
che i più scettici si convinceranno 
che il C64 può essere un buon inse¬ 
gnante! 

Dopo che avete dato il RUN, il 
computer inizia a sottoporvi una 
serie di quie letterarise la vostra 
risposta a un quesito è esatta, si 


passa alla domanda successiva, 
mentre se sbagliate il C64 vi mostra 
la risposta corretta. Più avanti vi 
verrà riproposto lo stesso quiz, e 
nel caso di un vostro ulteriore erro¬ 
re il punteggio finale, il quale non 
è altro che la percentuale delle ri¬ 
sposte esatte rispetto al totale, ri- 
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sulterà più basso. 

I quiz consistono nel l'indi care l'au¬ 
tore di una determinata opera let¬ 
teraria, e sono memorizzati nelle 
istruzioni DATA situate dalla linea 
1000 in poi. Se desiderate modifi¬ 
care le domande o aggiungerne al¬ 
tre, dovete agire appunto su que¬ 
sta parte del programma. Ogni 
istruzione DA TA dovrà essere co¬ 
struita nel modo seguente: 


xxxx DATA # TITOLO OPERA * 
AUTORE OPERA 

dove xxxx è il numero di linea. Il 
titolo e l’autore dell’opera devono 
essere più brevi di una riga del C64 
(40 caratteri). Inoltre fate attenzio¬ 
ne a lasciare nell'ultima linea del 
programma l’istruzione DATA 999, 
che funziona da "tappo" segnalan¬ 
do al computer la fine dei quiz. 


100 

POKE53280 , 0 :POKE53281,0 

:rem 

230 

no 

SI »54272: FB*=SI :FA=SI+1 :TL»SI+2:TH=SI + 3:W*SI+4: A*SI+5: 


H«SI+6:L=SI+24 

: rem 

70 

120 

READA$ :IFA$< >"999"THENN*N+1:GOTOl20 

:rem 

21 

130 

RESTORE:DIMQ$(N),C(N) 

: rem 

238 

140 

X=RND(0) 

:rem 

143 

150 

S$*"{WHT}CHI SCRISSE" 

: rem 

131 

160 

PRINT"{CLR}{ 8 GIU'}{RVS}{PUR}{ 40 SPAZI}" 

:rem 

49 

170 

PRINT"{SU}{RVS}{YEL}{ 9 SPAZI}C64 GENERATORE DI QUIZ 


{ 9 SPAZI}" 

: rem 

25 

180 

PRINT"{SU}{RVS}{PUR}{ 40 SPAZI}" 

:rem 

169 

190 

GOSUB540 

:rem 

179 

200 

FORI = 1TON:READQS ( I ): NEXT 

: rem 

255 

210 

T=0:FORI=lTON:C(I)=2:NEXT 

:rem 

28 

220 

PRINT" {CLR}{WHT}{ 9 GIU'H 8 SPAZI }MESCOLO 

LE DOMANDE 


{rvs} s {off }/ {rvs}n{off } ?" 

2 rem 

1 36 

230 

GETA$:ON-(A$=" ") GOTO230 : IFA$*"N"THEN270 

2 rem 

168 

240 

IFA$< >"S"THEN230 

2 rem 

95 

250 

FORJ=lTON:T$=Q$(J) : RN*INT(RND ( 1 ) *N)+1:Q$(J) 

*Q$(RN) 

:Q$ 


(RN)=T$ : NEXT 

2 rem 

110 

260 

REM 

2 rem 

124 

270 

FORJ-lTON: IFC (J) =»0ORC ( J) -1THEN420 

2 rem 

239 

280 

QZ$="" : AN$="":FL“0:FORK*lTOLEN(Q$(J) ) :M$=MID$(Q$(J) f K 


,1) 

2 rem 

105 

290 

ON-(M$ = "#")GOTO 330 

2 rem 

1 54 

300 

IFM$="*"THENFL*1:GOTO330 

2 rem 

118 

310 

IFFL=0THENQZ$«QZ$+M$ 

2 rem 

200 

320 

IFFL=1THENAN$*AN$+M$ 

2 rem 

146 

330 

NEXTK 

2 rem 

32 

340 

REM 

2 rem 

1 23 

350 

PRINT"{CLR}{ 3 GIU'}"+S$SPRINT"{GIU'}{RVS}" 

QZ$"{OFF}" 


+"?{GIU'}":INPUTRSS 

2 rem 

246 

360 

IFRS$=AN$THEN390 

2 rem 

1 72 

370 

PRINT"{ 2 GIU'}{RED}{ 3 SPAZI}NOI HAI SBAGLIATO.": 

GOS 


UB580 

2 rem 

84 

380 

PRINT"{ 2 GIU'}{YEL}LA RISPOSTA E*:"SPRINT" 

{GIU 1 } 



{RVS}"AN$"{OFF}"+"."SGOT041 0 

2 rem • 

48 
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390 

GOSUB550:PRINT"{ 3 GIU'}{RVS}{YEL}{ 9 SPAZI}BRAVO 

, HA 


I INDOVINATO!{ 9 SPAZI}" 

:rem 

56 

400 

C(J)-1 

:rem 

224 

410 

GOSUB540 

: rem 

174 

420 

NEXTJ 

:rem 

31 

430 

WA-0 : FORI *1TON:IFC(I)»-lTHENC(I)-0 

srem 

31 

440 

IFC(I)-2THENWA-1:C (I)--1 

srem 

90 

450 

NEXTI 

srem 

33 

460 

IFWA-1THEN270 

srem 

247 

470 

REM 

srem 

127 

480 

FORI*1TON:T-T+C(I):NEXT:SC-INT(T/N*100+.5) 

srem 

46 

490 

PRINT"{CLR}{ 2 GIU'}{WHT}PERCENTOALE RISPOSTE ESATTE: 


"SC"%" * 

srem 

216 

500 

PRINT"{ 2 GIU'}1<1>]VUOI RIPROVARE (S/N)?{GIU'}" 




srem 

119 

510 

GETA$:ON-(A$-"")GOTO510 :IFA$-"N"THENEND 

srem 

232 

520 

IFA$<>"S"THEN510 

srem 

97 

530 

GOTO210 

srem 

100 

540 

FORI»!TOl500 :NEXT:RETURN 

srem 

51 

550 

POKEL,15:POKEA,42 : POKEH,48 

srem 

44 

560 

POKETH,8 :POKETL,0:POKEFA,50:POKEFB,0 

srem 

253 

570 

POKEW,65:FORY-1TO300 :NEXTY:POKEL,0 :POKEW,0 : 

RETURN 




srem 

240 

580 

POKEL,15:POKEA,42 :POKEH,32 

srem 

40 

590 

POKETH,8 :POKETL,0 :POKEFA,12:POKEFB,0 

srem 

254 


600 POKEWr 65:FORY-1TO300:NEXTY:POKEL,0 :POKEW,0: RETURN 


:rem 

1000 DATA IMOBY DICK«HERMAN MELVILLE :rem 
1010 DATA #CUORE*EDMONDO DE AMICIS :rem 
1020 DATA #PINOCCHIO*CARLO COLLODI :rem 
1030 DATA #MARCOVALDO*ITALO CALVINO :rem 
1040 DATA #TOM SAWYER*MARK TWAIN :rem 
1050 DATA #IL FU MATTIA PASCAL*LUIGI PIRANDELLO :rem 
1060 DATA «IL DECAMERONE«GIOVANNI BOCCACCIO :rem 
1070 DATA #ADDIO ALLE ARMI«ERNEST HEMINGWAY :rem 
1080 DATA #L'ODISSEA*OMERO :rem 
1090 DATA #L 1 ORLANDO FURIOSO«LUDOVICO ARIOSTO :rem 
1100 DATA #1 SEPOLCRI«UGO FOSCOLO :rem 
1110 DATA #LA TEMPESTA*WILLIAM SHAKESPEARE :rem 
1120 DATA #L'ASINO D'ORO*APULEIO :rem 
1130 DATA #IL 5 MAGGIO«ALESSANDRO MANZONI :rem 
1140 DATA IDE BELLO GALLICO*CAIO GIULIO CESARE :rem 
1150 DATA fPAURA DI VOLARE*ERICA JONG :rem 
1160 DATA #DE VULGARI ELOQUENTIA*DANTE ALIGHIERI : rem 
1170 DATA IDE AMICITIA*MARCO TULLIO CICERONE :rem 
1180 DATA #IL CAPITALE*KARL MARX :rem 
1190 DATA #TOTEM E TABU'«SIGMUND FREUD :rem 
1200 DATA #MADAME BOVARY«GUSTAVE FLAUBERT :rem 
1210 DATA IDOCTOR FAUSTUS*CHRISTOPHER MARLOWE :rem 


1220 DATA #LA PIOGGIA NEL PINF.ir*«GABRIELE D'ANNUNZIO 


234 

143 

236 

61 

152 

165 

53 

103 

81 

45 

96 

211 

85 

130 
178 
1 83 
143 
195 
141 
107 
224 

22 

131 


:rem 127 
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1230 DATA 
1240 DATA 
1250 DATA 
1260 DATA 
1270 DATA 
1280 DATA 
1290 DATA 
1300 DATA 
1310 DATA 
1320 DATA 
1330 DATA 
1340 DATA 
1350 DATA 
1360 DATA 

1370 DATA 
1380 DATA 
1390 DATA 
1400 DATA 
1410 DATA 
1420 DATA 
1430 DATA 
1440 DATA 
1450 DATA 
1460 DATA 
1470 DATA 
1480 DATA 
1490 DATA 
2000 DATA 


ILA METAMORFOSI*FRANZ KAFKA 
#1 CARMI*CAIO VALERIO CATULLO 
#DON CHISCIOTTE*MIGUEL DE CERVANTES 
♦L'ORIGINE DELL'UOMO*CHARLES DARWIN 
#IL PRINCIPE*NICCOLO' MACHIAVELLI 
#1 DIALOGHI SOCRATICI*PLATONE 
♦GENTE DI DUBLINO*JAMES JOYCE 
♦AULULARIA*TITO MACCIO PLAUTO 
♦LO ZIBALDONE‘GIACOMO LEOPARDI 
♦LA CITTA' DEL SOLE*TOMMASO CAMPANE 
♦LE MIE PRIGIONI«SILVIO PELLICO 
♦SULLA STRADA*JACK KEROUAC 
♦LE ODI BARBARE*GIOSUE' CARDUCCI 


♦I MALAVOGLIA*GIOVANNI VERGA 
♦I TRE MOSCHETTIERI«ALEXANDRE DUMAS 

♦myricae*giovanni pascoli 

♦CUORE DI CANE*MICHAIL BULGAKOV 
♦OSSI DI SEPPIA*EUGENIO MONTALE 
♦ETTORE FIERAMOSCA*MASSIMO D'AZEGLIO 
♦ED E' SUBITO SERA*SALVATORE QUASIMODO:rem 
♦LA DISUBBIDÌENZA*ALBERTO MORAVIA 
♦COMMA 22*JOSEPH HELLER 
♦IL TAMBURO DI LATTA*GUNTER GRASS 
#1984*GEORGE ORWELL 
♦LA STORIA*ELSA MORANTE 
♦FAHRENHEIT 451*RAY BRADBURY 
999 


rem 

223 

rem 

37 

rem 

246 

rem 

255 

rem 

109 

rem 

112 

rem 

42 

rem 

140 

rem 

174 

rem 

76 

rem 

217 

rem 

146 

rem 

DAM 

189 

rem 

1 22 

rem 

40 

rem 

5 

rem 

164 

rem 

160 

rem 

214 

rem 

106 

rem 

136 

rem 

146 

rem 

135 

rem 

57 

rem 

151 

rem 

206 

rem 

244 

rem 

135 



In questo 3 ioco sarete alla guida di 
un’astronave che deve attraversa¬ 
re la fascia degli asteroidi, racco¬ 
gliendo questi ultimi allo scopo di 
estrarne minerali utili. Il vostro 
compito è tuttavia reso più difficile 
dalla presenza nella zona di molti 
piccoli pianeti,- se vi scontrate con 
uno di essi l’astronave esplode. Gli 


asteroidi sono di due tipi: quelli 
rossi, più pregiati (fruttano 50 pun¬ 
ti), e quelli gialli (10 punti). Il gioco 
finisce in caso di collisione con un 
pianeta, oppure se vi lasciate sfug¬ 
gire uno dei preziosissimi asteroidi 
rossi. Per spostare l’astronave a si¬ 
nistra e a destra usate rispettiva¬ 
mente i tasti I e P. 
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10 POKE53280,7:POKE53281,11 :rem 239 

20 PRINT" {YEL} {CLR} { 2 GIU'H 11 SPAZI }A STEROIDI" 

:rem 42 

30 PRINT" t 16 GIU'H 6 SPAZI} {RVS} PREMI UN TASTO PER INIZ 

IAREtOFF}" :rem 213 

40 V a 53248:POKE2040,192:POKE2041,193:POKEV+21,0:POKEV+28, 
2:POKEV+37, 2 sPOKEV+38,8 srem 179 

50 POKEV+39,3:POKEV+40,1 :POKEV+23,0:POKEV+29,0:POKEV+30,0 
sPOKEV+31,0 srem 58 

60 FORICI2288T012350sREADQsPOKEI,Qs NEXT srem 197 

70 FORI*!2352T012414sJ a PEEK(1-64)sJ-J-15sIFJ<0THENJ-0 



• • 

s rem 

138 

80 POKEI*J 

:rero 

86 

90 NEXT 

:rem 

168 

100 

FORI*49152T049271sREADQ:POKEI,QsNEXT 

:rera 

252 

110 

GETX$ sIFX$*""THENl10 

: rem 

117 

120 

PRINT" {CLR}{ 22 GIU'H 15 SPAZI }PUNTI s" ; s POKE53280, Os 


POKE53281,0 

:rem 

1 

130 

POKE53265,PEEK(53265)AND247sPOKEV,170sPOKEV+1,160 

SPOK 


EV+21,1sPOKEV+16,0 

: rem 

151 

140 

PC-18:VL-0sLR-lSGOSUB480 

:rem 

179 

150 

SYS(49152)SFORI-1T06 

: rem 

156 

160 

IFA (1,2) OOTHENA (1,3) «A (I ,3) +1 

: rem 

69 

170 

IFP (1,1) OOTHENP (I,2)*P(I,2)+1 

2 rem 

112 

180 

SYS(49225)sNEXT 

2 rem 

104 

190 

IFRND(1)<.5THEN21 0 

2 rem 

240 

200 

GOSUB360 

2 rem 

171 

210 

FORI»lT06sIFA(I,3)>16ANDA(I,1)<>2THENA(I,3) 

»02A(I 

,2)« 


0 

2 rem 

31 

220 

SYS(49225)sNEXT 

2 rem 

99 

230 

IFRND(1)<.5THEN250 

2 rem 

239 

240 

GOSUB440 

2 rem 

174 

250 

FORI*lT06:IFP(I,2)>16THENP(I,2)»0sP(I,l)*0 

2 rem 

150 

260 

SYS(49225)sNEXT 

2 rem 

103 

270 

PC»INT((PEEK(V)+256*(PEEK(V+l6)ANDl)-23)/8) 

2 rem 

96 

280 

IP(PEEK(V+31)ANDl)-0THEN330 

2 rem 

11 

290 

HA*0sFORI*lT06sIFA(I,3)>■!3AND(PC“A(I,2)ORA(I,2)* 

PC+1 


ORA(I,2)-PC+2)THENHA»I 

2 rem 

156 

300 

IFP(I,2)>*13AND(PC*P(1,1)ORP(1,1)“PC+lORP(I 

,1) -PC+2)T 


HEN600 

2 rem 

114 

310 

NEXT 

2 rem 

211 

320 

IFHAOOTHENGOSUB560 

2 rem 

161 

330 

FORI-1T06 

2 rem 

1 3 

340 

IFA(I,3)>17ANDA(I,1)“2THENM$ m "{ 8 DES}ASTEROIDE ROSSO 


FUGGITO("SGOTO680 

2 rem 

6 

350 

SYS(49225)sNEXTsGOTOl50 

2 rem 

112 

360 

F0RI-lT06sIFA(I,2) O0THEN420 

2 rem 

129 

370 

K*INT(RND(1)*33+4)sPOKEI025+K, 42 

2 rem 

236 

380 

IFRND(1)<.9THEN400 

2 rem 

246 

390 

POKE55297+K,7sA(I,2)*K+1sA(I,l)*7:RETURN 

2 rem 

7 

400 

IFA(LR,3)<6THEN390 

2 rem 

239 
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410 LR-I:POKE55297+K,2:A(I,2)-K+l:A(I,1)-2:RETURN 




:rero 

84 

420 

NEXT 

:rem 

213 

430 

RETURN 

srem 

119 

440 

F0RI-1T06:IPP(I,1) O0THEN460 

srem 

146 

450 

K-INT(RND(1) *39):POKEl025+K,81 :POKE55297+K 

r 6 S P ( I # 

1) -K 


+1 : RETURN 

srem 

97 

460 

NEXT 

srem 

217 

470 

RETURN 

srem 

123 

480 

SC-SC+VL 

srem 

210 

490 

PRINTCHR$ (13) ;CHR$ (1 45) ;TAB(21) ;SC; 

srem 

217 

500 

VL-54296:W-54276:A-54277:H-54273:L-54272 

srem 

160 

510 

FORI-54272T054296:POKEl,0:NEXT 

srem 

59 

520 

POKEVL,15:POKEW,33:POKEA, 1 90 

srem 

188 

530 

FORT-1TOl0:POKEH,34:POKEL,75:NEXT 

srem 

79 

540 

POKEH,0:POKEL,0:POKEW,0:POKEVL,0 

srem 

0 

550 

RETURN 

srem 

122 

560 

IFA(HA,1)-7THENVL-10:GOTO580 

srem 

149 

570 

VL-50 

srem 

224 

580 

GOSUB480:POKEl024+A(HA,2)+40*A(HA,3),32:A(HA,2)-0 

: A(H 


A, 3)«0 

srem 

146 

590 

RETURN 

srem 

126 

600 

POKEV+2,PEEK(V):POKEV+3,PEEK(V+l):IFPEEK(V+l6)-1THENP 


OKEV+16,3 

srem 

27 

610 

POKEV+21,2 

srem 

8 

620 

V»54296:W«54276:A-54277:H-54273:L-54272 

srem 

87 

630 

F0RI-54272T054296:POKEl,0:NEXT 

srem 

62 

640 

FORX*15TOOSTEP-1:POKE53281,X+30:POKEV,X:POKEW,129 

:POK 


EA,15 :POKEH,40- 

srem 

175 

650 

POKEL,200:NEXT:POKE53281,0 

srem 

21 

660 

POKEW,0:POKEA,0:M$-"{ 7 DES)COLLISIONE CON 

UN PIANETA 


1" 

srem 

18 

670 

FORT»1TO1000 :NEXT 

srem 

35 

680 

PRINT"{CLR}"; :POKE53269,0:POKE53265,PEEK(53265)OR8 



srero 

249 

690 

PRINTTAB(14); "{RVS}{CYN} FINE GIOCO {OFF}" 

srem 

14 

700 

PRINT"{RVS}{ 6 GIU'}";M$;"{OFF}" 

srem 

157 

710 

PRINT"{ 3 GIU 1 }{ 8 SPAZI}IL TUO PUNTEGGIO 

E ,n ;SC 




srem 

24 

720 

PRINT" [<!>}{ 3 GIU'H 10 SPAZI }GIOCHI ANCORA (S/N)? 


{ 2 GIU'}" 

srem 

7 

730 

GETX$: IFX$«""THEN730 

srem 

133 

740 

IFX$»"S"THENRUN 

srem 

158 

750 

IFX$-"N"THENEND 

srem 

124 

760 

GOTO730 

srem 

112 

770 

DATA0,24,0,0,60,0,0,102,0,64,231 ,2,65,255, 

130,195 

,255 


,195,195,255,195 

srem 

40 

780 

DATAI 95,255,195,195,255,195,199,255,227,207,255,243,2 


19,255,219 

srem 

81 


790 DATA243,255,207,227,255,1 99,227,255,199,243,255,207 f 2 
19,255,219 :rem 70 
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800 DATA207,255,243,199,255,227, 


810 DATA169,127,133,178,169,6,13 
0,145,178,160,0,165 
820 DATA178,24,133,180,165,179,1 
0,40,145,180,165 

830 DATA178,56,233,1,133,178,165 
8,201,255,208 

840 DATA210,165,179,201,3,208,20 
2,224,40,208,248,96 
850 DATA165,197,133,178,201 ,33,2 
,8,173,16,208,41 

860 DATA254,141,16,208,206,0,208 
,238,0,208,208,8,173 
870 DATA16,208,9,1 ,141,16,208,96 
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,85,3,192,62,3 


irem 177 
3,179,160,0,177,178,160,4 

:rem 232 
05,212,133,181 ,177,180,16 

:rem 69 
,179,233,0,133,179,165,17 

:rem 194 
4,169,32,162,0,157,0,4,23 

:rem 201 
08,19,169,0,205,0,208,208 

:rem 68 
,96,165,178,201,41,208,13 

:rem 5 
:rem 94 








Ecco come riconoscere un vero programma 
Leoni informatica 



Quando per il tuo 
home computer il negoziante 
ti offre un programma a basso costo, dif¬ 
fidane. Nella quasi totalità dei casi si tratta di una 
copia duplicata che per di più può non girare bene. Le 
conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili. Leoni Informatica. Azienda leader, fa programmi 
da sempre, e da sempre ò sinonimo di altissima qualità Riconoscere questi 
programmi ò facile. La classica confezione bianca e blu è accuratamente si¬ 
gillata. All'interno, allegate al floppy disk, vi sono le istruzioni in italiano e. cosa 
importantissima, la cartolina di garanzia. Inoltre Leoni Informatica è stata la 
prima in Italia ad offrire la garanzia a vita, l'assistenza ed il continuo aggiorna¬ 
mento dei suoi programmi; ed oggi, sempre all'avanguardia, produce i software 
MSX. compatibili con tutti i più importanti Personal Computer. 

Al tuo negoziante chiedi quindi la qualità, l'assistenza e l’aggiornamento: chie¬ 
di i programmi Leoni Informatica. 

Richiedi a Leoni Informata l'elenco gUM« H sugi ergqrammi. 
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Leoni Informatica non ti abbandona mai 
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